home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Windows 1993 Fall / TestDrive Windows 1993 Fall.iso / dbase / samples / guests.qbe (.txt) < prev    next >
Encoding:
dBase Query  |  1993-03-09  |  3.3 KB  |  42 lines
  1. * dBASE IV .QBE file 8
  2. CLOSE DATABASES
  3. SELECT 1
  4. USE NAMES.DBF
  5. SET FILTER TO 
  6. QBE___SAFE = SET("SAFETY")
  7. QBE___CATA = SET("CATALOG")
  8. SET SAFETY OFF
  9. SET CATALOG OFF
  10. GO TOP
  11. IF RECCOUNT() > 1
  12. QBE___12 = '.\'+LTRIM(STR(RAND(-1)*100000000,8))
  13. SORT TO &QBE___12 ON STATE/A,CITY/A
  14. USE &QBE___12 NOSAVE NOUPDATE
  15. ENDIF
  16. SET SAFETY &QBE___SAFE
  17. SET CATALOG &QBE___CATA
  18. GO TOP
  19. NAMES.DBF
  20. :Names.dbf*$i
  21. :LASTNAME*$i
  22. :FIRSTNAME*$i
  23. :ADDRESS*$i
  24. :CITY*$i
  25. :STATE*$i
  26. :ZIP*$i
  27. :PHONE*$i
  28. :BUSINESS*$i
  29. :Lastname+Firstname*$i
  30. :TRIM(Lastname)+Firstname*$i
  31. ,xx:Asc2*$i
  32. ,xx:Asc1*$i
  33. ,xx:*$i
  34. :guests*$i    ,
  35. *$i    ,
  36. *$i    ,
  37. *$i    ,
  38. *$i    ,
  39. *$i    ,
  40. *$i    ,
  41. *$i    ,
  42.